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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE +4 FURNISHED UNDER A LICENSE AND MAY BE USED AND copteD 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Mt SE AND il 


INCL Ne E OTH ER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO _ ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
pompokatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRBARAASAAAALAAALALALLALLSSLALALAL ESSE EASES ELE R SERRE REE E EERE AREER SERRE REE EE S 


2% 
: 
: 
. 
: 
: 
; 
‘ 
: 
; 
: 
. 
: 
. 
. 
. 
. 
; 
’ 
: 
; 
: 
. 
: 
: 
. 
: 
’ 
. 
: 
: 
: 
: 
. 


ABSTRACT: 


The VAX=-11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 


ENVIRONMENT: 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 
V03-002 ROPO024 Robert Posniak 18-JUL-1984 
Add new flag (FLGSV ae? to indicate null 


parameter in IRP definition. 


v03-001 MTROO31 Mike Rhodes 13-Apr-1983 
Add the .LINK directive terminal definition to the macro 
SMAC_GRAMMARDEF. Additionally, SMAC_TIRCMDDEF has been 
deleted and $MAC _OBJCODDEF has been modified to include 
the SOBJDEF macro (from SYSS$SLIBRARY:STARLET.MLB). 


v0O3.00 MmTROOOS Mike Rhodes 15-Mar-1982 
Added two new flags to allow Macro to exit with 
proper exit status. The flags Apel EXTERR a eesy EXTWRN 
are set to indicate that a non-assemb ty error (eg. RMS, LBR, 
SUM, etc.) has occurred. Fixes SPR #11-41651(A). 


v02.21 mTROOO! Mike Rhodes 02-Feb-1982) |, 
Add rLGSy aD INSTA to correct the handling of ‘=; 
strings Copel taites . -ASCIx strings. QAR #890 and 
SPR a 43088 


| 
FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY == FACILITY NUMBER 125. 
| 


v02.19 


v02.18 


v02.17 


v01.16 


v01.15 


v01.14 


v01.13 


v01.12 


v0O1.11 


v01.10 


v01.09 


v01.08 


v01.16 


v01.15 


v01.06 


PCG0008 Peter Seorps 26-Aug-1981 
Add RDX$V_DOUBLE, RDXS$V_GFLOAT, RDXS$V_HFLOAT. 
Correct G=-Float symbol Seneration bug. 


PCG0002 Peter George 16-Apr-1981 
Add new flag, DBGOUT, to output cobupger records for 
aps poets. Also rename GENERIC symbol flag bit to 


CNHO047 Chris Hume 22-Dec-1980 
Count null argument after trailing comma for .NARG directive. 
(ARGSCN 02.08, GETARG.MAR 02.06) 


CNNOOSS Chris Hume 28-0c t-1980 

De-optimize boundary valued backward references if indexing 
requested. Allow the architecturally legal immediate mode in 
addre_s and vield contexts and also the practically useless 
indexed immediate mode. 

(ACTREF .MAR 02.15, ACTSTA.MAR 02.15, SYMTAB.MAR 02.18) 


RNOO30 R. Newland 14-Mar-1980 
Increase resultant file specification buffer in 
macro Library file block. 


RNOO23 R. Newland 2-Nov-1979 
Get error messages from system message file. 
RNOO14 R. Newland 10-Oct-1979 
Support for G_floating, H_floating and Octaword data types 
RNOOT3 R. Newland 27-Sep-1979 
Add VEC attribute name to PSECT options 

RNOO11 R. Newland OW pe Bb hy 
New Librarian support - redefine MLF block and 
remove definition of MLB block. 

RNOO10 R. Newland 5-Sep-1979 
Multipage MXB blocks 

RNOOO8 R. Newland 29-Aug-1979 

31 character symbols 

RNOOOS R. Newland 09-Aug-1979 


Variable sized symbol name storage and symbolically 
defined maximum argument length. 


RNOOO2 R. Newland 01-Feb-1979 
Changes for Source Update Merge, add global flag 
to mark input file as being updated, and define 
new igteraestate code for SUM errors. 


R. Newland 20-0ct-1979 
Define bit to get and convert macro argument to upper case. 
RNOO16 R. Newland 19=0¢t-1979 


Don’t output error messages ypen -NTYPE operand 
argument is the PC. SPR 11-26592 


0003 8. Schreiber 9-JAN-1979 
Catch syntax error if pound sign missing from 
immediate ASCII (*A) operands. 


-SBTTL DECLARATIONS 
INCLUDE FILES: 


MACROS: 


EQUATED SYMBOLS: 


OWN STORAGE: 


i 


-SBTTL SYMBOL BLOCK DEFINITIONS 
THIS MACRO DEFINES THE SYMBOL AND PSECT BLOCK OFFSETS 


-MACRO $MAC_SYMBLKDEF 
SYMSK _MAXLEN = 31. ; Maximum symbol name Length 


ALPHA-NUMERIC SYMBOL BLOCK 


; THIS IS THE BASIC srneot BLOCK USED TO wr} USER-DEFINED 
; SYMBOLS INTO THE USER SYMBOL TABLE. THE OFFSETS ARE DEFIN 


ED 
IN RELATION TO THE BEGINNING OF THE SYMBOL BLOCK. 


-PSECT $ABS$,ABS 
20 


SYMSL_LINK: -BLKL 1 ;LINK TO NEXT af (near OR 0 

SYMSB_NAME : -BLKB 1 [OFFSET FROM BASE TO NAME 
SYMSL~VAL: -BLKL 1 ; SYMBOL VALUE (32 BITS) 

SYMSW_FLAG: ~BL 1 :SYMBOL F 

SYMSB-TOKEN:  .BLKB 1 ; TOKEN VALU 

SYM$B_SEG: -BLKB 1 ;SEGMENT (PSECT) DEFINED IN 
SYMSK"BLKSIZ: ;FIXED PART SIZE OF A SYMBOL BLOCK 


LOCAL SYMBOL (FURM nnnnn$) 


SYMBOL BLOCK IS THE SAME AS A A/N SYMBOL BLOCK. THE SYMBOL 
NAME IS STORED AS <1 BYTE>LSB NUMBER + <2 BYTES> VALUE. 


OPCODE SYMBOL 


OPCODES ARE STORED IN A SEPARATE He a A TABLE. THE SYMBOL 
BLOCK TO DEFINE AN OPCODE IS THE SAME AS THE A/N SYMBOL 
DEFINITION BLOCK WITH THE FOLLOWING EXCEPTIONS: 


1) SYM$B_SEG DEFINES THE NUMBER OF OPERANDS WHICH THE 
SYMBOL MAY HAVE. IF 
LL B IC) WILL 
BE SET IN THE SYMSL_FLAG WORD. 
2) FOLLOWING THE atte h SEG BYTE se ARE STORED THE OPERAND 


DESCRIPTORS. THERE IS ONE BYTE FOR EACH 
BPERAND THAT AN OPCODE MAY HAVE. 


Be Re Oe Be Oe Oe Be Oe Oe Be Oe Oe Oe Be Oe Oe 
roo 
= 
Pd 
a 
m 


++ 


SYMBOL FLAGS 


THE FOLLOWING FLAGS ARE DEFINED AND MAY BE PRESENT IN THE 
FLAGS WORD (SYMSL_FLAG). 


.MACRO $SYM_BITDEF SYMBOL 
SYMSM_'SYMBOC=X1 | 
SYMSV vee | 
Kl = 


een? 
KENDA SSYM_BITDEF | 
x1=1 
x2=0 
; BIT ON IN FLAG WORD IMPLIES 
M_BITDEF DEF ;SYMBOL HAS BEEN DEFINED 
M_BITDEF WEAK ;SYMBOL IS DEFINED .WEAK 
M_BITDEF ;SYMBOL IS DEFINED .GLOBAL 
M_BITDEF EXTRN ;SYMBOL IS DEFINED .EXTERNAL 
M_BITDEF ;SYMBOL IS ABSOLUTE 
M_BITDEF DEBUG ;SYMBOL HAS .DEBUG ATTRIBUTE 
M_BITDEF LOCAL :SYMBOL IS A LOCAL LABEL 
M_BITDEF & ;SYMBOL HAS BEEN REFERENCED 
M_BITDEF ASN ;SYMBOL CREATED BY ASSIGNMENT STATEMENT 
M_BITDEF EPT ;SYMBOL CREATED BY .ENTRY 
SYMSM_DELMAC=SYMSM_EPT ;MACRO DEFINITION HAS BEEN DELETED 
SYMSV_DELMAC=SYM$V_EPT ;MACRO DEFINITION HAS BEEN DELETED 
BITDEF DBG ;SYMBOL TO BE OUTPUT TO DEBUG neteee 
BITDEF Sehr eect ;SYMBOL IS REFERENCED IN A REL PSECT 
BITDEF XCRF 3D0 NOT CREF THIS SYMBOL 
BITDEF CRFO ; INSERT KEY HAS BEEN DONE FOR THIS SYMBOL 
BITDEF SUPR ;BIT IS SET UNTIL SYMBOL IS REFERENCED 


PSECT NAME BLOCK 


THE PSECT NAME BLOCK IS IDENTICAL TO THE A/N SYMBOL BLOCK WITH 
THE FOLLOWING EXCEPTIONS: 1) T Me | SYM$B_TOKEN BYTE ay NUSE 

AND 2)THERE ARE TWO ADDITIONAL FIELDS-=THE OPTION 05 LAGS WORD 
(16 BITS) AND THE CURRENT LOCATION COUNTER (32 BIT 


-=0 


PSCSL_LINK: -BLKL 1 ;LINK TO NEXT PSECT NAME BLOCK OR 0 
AME : -BLKB 1 OFFSET FROM BASE TO PSECT NAME 
PSCSL_MAXLGTH: .BLKL 1 3PSECT MAXIMUM LENGTH 
LAG: ° 1 :PSECT FLAGS 
PSC$B_UNUSED: .BLKB 1 UNUSED BYTE 
EG: 1 :PSECT SEGMENT NUMBER 
PSC$W_OPTIONS: .BLKW 1 sPSECT OPTIONS 
PSC$L_CURLOC: .BLKL 1 s;PSECT CURRENT LOCATION 
PSC$K"BLKSIZ: sFIXED PART SIZE OF PSECT BLOCK 


pte 
: PSECT FLAGS 

-MACRO | SPSC_BITDEF SYMBOL 

PSC C$M_‘SyYmMBOC=x1 

PSCSM_ALLOPTNS = PSCS$M_ALLOPTNS ! X1 
Pacey *SYRBOL=PSCEK_ NO-OPTNS 


1 
ree NO_OPTNS=PSC$K_NO_OPTNS+1 


M 4 


1 
$k _NO_OPTNS= 
$H~ALCOPTNS= 
ts 


wv Ux 


i= 
sc 0 
SCSM_AL 
S$PSC_BITDEF P 
PSCSM_NOP 
SPSC_BIT per L 
PSCSM_USR=“C<PSCSM_LIB> 
SPSC ait V 
PSCSM_CON=“C<PSCSM_OVR> 
SPSC_BITDEF 
PSCSM_ABS=“C<PSCSM_REL> 
SPSC_BITDEF 
PSCSM_LCL=“C<PSCS$M_GBL> 
SPSC_BITDEF $ 
PSCSM_NOSHR=“C<PSCSM_SHR> 
SPSC_BITDEF 
SCSM_NOEXE=*C<PSCSM_EXE> 
SPSC alte RD 


oP 
Cop 
Ic 
1¢ 
1B 


PAMOOOMMOOLN 


CRF 


} 
} 
:PIC CODE | 
=“C<PSCSM_PIC> :NON-PIC CODE 


SCSM_NORD=*C<PSCSM_KD> 
$PSC _BITbEF WRT 


SCSM_NOURT= “C<PSCSM_WRT> 
SPSC_BITDEF 
PSCSM NOVEC=*C<PSCSM_VEC> 


PSCSM _EXESPSCSR _EXE+PSCSM_R ;READ ACCESS FOR EXE 

PSCSM~ “WRT =PSCSM “WRT+PSCSM~ RD ;READ ACCESS FOR WRT ALSO 
PSC$V_ALIGNMENT "= PSCSK_NO_OPTNS FIRST BIT OF ALIGNMENT FIELD 
PSCSS"ALIGNMENT = SIZE OF ALIGNMENT FIELD 
PSCSV"ALIGNFLG = PSCSV_ALIGNMENT+PSCS$S_ALIGNMENT ; BIT # OF ALIGNMENT FLAG 
PSCSM~ALIGNFLG = 1aPSCSV_ALIGNFLG ALIGNMENT FLAG 

SC$M~BYTE = <Qa@PSC$U_ALIGNMENT>!PSCSM_ALIGNFLG | ;BYTE ALIGNED 
PSCS$M~WORD = <1aPSCS$V“ALIGNMENT>'PSCSM-ALIGNFLG | :WORD ALIGNED 
PSC$M~LONG = <2@PSCSV"ALIGNMENT>!PSCSM-ALIGNFLG = LONG ALIGNED 
PSC$M~QUAD = <3aPSC$V-ALIGNMENT>!PSCSM-ALIGNFLG | QUAD ALIGNED 


PSC$M_PAGE 
PSC$M_DEF AULT 


<9a@PSC$V~ALIGNMENT>! PSCSM— -ALIGNFLG ;PAGE ALIGNED 
PSCS$M_REL!PSCSM_WRT!PSCSM_RD!PSCSM_EXE ;DEFAUTLT PSECT OPTIONS 


-MDELETE SMAC_SYMBLKDEF, SSYM_BITDEF, $PSC_BITDEF 
-ENDM $MAC_SYMBLKDEF 


MACRO $MAC_INPBLKDEF 


+ 
+ 


INPUT LINE CONTEXT BLOCK DEFINITIONS 


THIS CONTEXT BLOCK IS USED BY THE CHARACTER INPUT ROUTINE TO 
GET THE NEXT LINE WHEN NEEDED. 


SMAC_MNBDEF 


-PSECT $ABS$,ABS 


-=0 

INPSL_LINK: -BLKL sLINK TO NEXT BLOCK 

INPSLUNXTL: -BLKL 1 sLINK TO NEXT LINE 

INP$L_GETL: -BLKL 1 sADDRESS OF ROUTINE TO GET NEXT LINE 
INPSL_IFLVL: -BLKL 1 bas ‘ LEVEL COUNTER 

INPSL_IFVAL ~BLKL 1 "“IF'* VALUE 

INPSLTRPTCNT: .BLKL 1 ;COUNTER FOR REPEAT/IRP 

INPS$L_PAGP: -BLKL 1 : POINTER TO PAGES USED BY THIS INPUT 
INP$SB_ARGCT:  .BLKB 1 ; ARGUME ENT COUNT 

INP$L_ARGS: -BLKL 1 sPOINTERS TO ARGUMENTS 


INPS$K_BLKSIZ: ;SIZE OF AN INPUT BLOCK 


-BLKB <MNBSK_BLKSIZ+SYMSK_MAXLEN+1> ;SIZE WHEN MNB IS MADE INTO INP 
INP$K_IRPSIZ: 


-MDELETE SMAC_INPBLKDEF 
-ENDM $MAC_INPBLKDEF 


+ 
MACRO NAME BLOCK 


THIS MACRO DEFINES THE MACRO NAME BLOCK (MNB) AND THE MACRO 
ARGUMENT BLOCK (MAB). THESE ARE USED FOR DEFINING MACROS. 


-MACRO $HAC_MNBDEF 
-PSECT S$ABS$,ABS 


.=0 
MNBSL_LINK: -BLKL 1 ;LINK TO NEXT MNB 
MNBSB_ NAME : “BLKB 1 :OFFSET FROM BASE TO MACRO NAME 
MNBSL~TXTP “BLKL 1 SPOINTER TO TEXT 
$U"FLAG “BLKW oT FLAGS 
MNBSL~PAGP “BLKL 1 :POINTER TO PAGES USED TO DEFINE MACRO 
"PAGC BLKL 1 [COUNT OF PAGES USED 
MNBSL~CRSYMF BLKL 1 :CREATED SYMBOL FLAGS 
MNBSB-ARGCT: <.BLKB 1 {ARGUMENT COUNT (259. MAK) 
MNBSL~ARGP: “BLKL 1 [POINTER TO ARG LIST 
MNBSK~BLKSIZ: [FIXED PART SIZE OF MACRO NAME BLOCK 


MAB == MACRO ARGUMENT BLOCK 


.=0 
MABSL_LINK: -BLKL 1 
MABSB_NAME : “BLKB 
“ARGNO: <:BLKB 1 
MABSW-DVLEN: =. 1 
MABSL-DVPTR: -BLKL. 1 


MABSK_BLKSIZ: 


: MXB <= MACRO EXTENSION BLOCK 
.=0 


MXBSL et -BLKL 1 
MXBS$L_PAGES: -BLKL 1 
MXBSK_BLKSIZ: 


-MACRO $MAC_MNBDEF 
-ENDM $MAC_MNBDEF 


.ENDM = $MAC_MNBDEF 


RGUMENT NAME 
STRING 
NG 


3; Link to next MXB 
3; Number “i Oats in block 
; Size o 


- 
+ 


“~£v 


=_ 


ray Ca, Mine Ge A te eee 


; SMAC_GENVALDEF 

; DEFINES THE COMMONLY USED VALUES. a PE INVOKED IN ANY 

: MODULE THAT REFERENCES ANY OF THESE VALUES 

-MACRO SMAC_GENVALDEF 

MAC_SUBSYS = 125. s;MACRO=32 FACILITY NUMBER 

HASASZ = 127 ;HASH TABLE SIZE 

CR z “015 :CARRIAGE RETURN 

TAB = *011 sHORIZONTAL TAB 

FF = “014 FORM FEED 
BLNK = “040 3 BLANK 

HYPHEN = “A/-/ eres 

SEMI *A/;/ 7SEMI COLON 

CHRSV_ CVTLWC = “A/a/ ;CONVERT ANYTHING .GT. LOWERCASE A 
CHRSV_NOCVT = ay 3;D0 NOT peer TO UPPERCASE 

INTSK_BUF SIZ = <10#512>=<394> ; SIZE OF INT. BUFFER 

INTSK_BUF WRN = INTSK_BUF SIZ- 100° ;WARNING LIM iT 

INPSK_BUF S1Z = 1000. : Input buffer size 
OB JSK BUF 31¢ = 512 sOBJECT FILE BUFFER SIZE 

LSTSK_BUF = 134. sLISTING FILE BUFFER SIZE 
LSTSK_TITLE_SIZ = 40. ;_ Size of title sub-string 

REGS _PC = 15 3PC REGISTER 
RDX$V_BINARY = 0 7 INDEX FOR BINARY RADIX 
RDX$V_OCT = 1 ; INDEX FOR OCTAL RADIX 
RDXSV_DECIMAL = ¢ ; INDEX FOR DECIMAL RADIX 
RDX$V_HEX = ; INDEX FOR HEX RADIX 
RDX$V_FLOAT = & 7 INDEX FOR F FLOATING NUMBERS 
ROX$V_DOUBLE = 5 : INDEX FOR D FLOATING NUMBERS 
RDXS$V_GFLOAT = 6 ; INDEX FOR G FLOATING NUMBERS 
RDX$V_HFLOAT = 7 INDEX FOR H FLOATING NUMBERS 
LSTSK_L_P_PAGE = 60 sLINES PER PAGE IN LISTING 
STBSK_PG MISS = 10 iM PAGES TO ALLOCATE FOR EMPTY SYMBOL BUCKET 
SYMSK_MAXLEN = 31 ; Maximum characters/symbol 
SYMS$K_TWOCOL = 16 : Freres ter size for 2 column symbol table 
CHRSM_SPA_MSK = “x01 ;BIT MASK FOR SPACE=L IKE oo CTER 
CHRSV_SPA_MSK = 0 ;BIT NUMBER FOR SPACE-LIKE CHAR 
CHRSM_SYM_DLM == “x02 ;BIT MASK FOR SYMBOL DELIMITER CHARACTER 
CHRSV_SYM_DLM = 1 ;BIT NUMBER FOR SYMBOL DEL 

CHRSM_SYM_CH = “x04 ;BIT MASK FOR CHAR THAT 4a START SYMBOL 
CHRSV_SYM_CHR = 2 ;BIT NUMBER FOR SYMBOL CHAR 

CHRSM_S = “x08 3;BIT MASK FOR CHAR THAT oe BE IN SYMBOL 
CHRSV_SYM_CH1 = = 3 ;BIT NUMBER FOR SYMBOL CHA 

CHRSM_NUM_| = “x10 3BIT MASK FOR NUMBER 

CHRSV_NUM BER = 4 :B1T ER FOR UNUMBER 

CHRSM_COMMA_CR = “x20 7BIT MASK FOR COMMA AND CR 
CHRSV_COMMA_CR = 5 BIT ER FOR COMMA 

CHRSM_ILL_CAR == “x40 ;BIT MASK FOR ILLEGAL CHARACTER 
CHRSV_ILL_CHR = 6 ;BIT NUMBER FOR ILLEGAL CHARACTER 
ARGS$K_SI = 1000 : Maximum characters in MACRO argument 
AUDSK~ SIZE = 16 ; Audit trail string size 


-MDELET 


E SMAC_GENVALDEF 
SMAC_GENVALDEF 


.SBTTL DEFINE MACRO TEXT SPECIAL MARKERS 
SMAC_MTXDEF 


AND REPEAT/IRP PROCESSING. 


; DEFINES THE MACRU TEXT SPECIAL MARKERS USED DURING MACRO 


.MACRO SMAC_MTXDEF 
MTX$_ARGMRK : “XFF ;ARG_NO. FOLLOWS (BYTE) 
MTX$_TXTLNK = “XFE :LONGWORD OF LINK FOLLOWS 
MTX$_LXLEN : “XFD :LEXICAL OPERATOR=-LENGTH 
MTXS-LXEXT = “KFC TLEXICAL OPERATOR==EXTRACT 
MTXSILXLOC = “xFB :LEXICAL OPERATOR=-LOCATE 
“KFA TO “XFO RESERVED 

ATXS_LITSTR = “XEF ;LITERAL STRING FOLLOWS 
MTXS-LITVAL = “XEE :LITERAL VALUE FOLLOWS 
MTXS_SYMADR = “XED :SYMBOL ADDRESS FOLLOWS 
MTXS$_NOMORE : “KEC NO MORE ARGUMENTS 


.ENDM = SMAC_MTXDEF 


; MTX$_ARGMRK FOLLOWED BY A BYTE CONTAINING THE erie — 
3 MIXS_TXTLNK FOLLOWED BY A LONGWORD OF ADDRESS (TEXT LINK) 
; MIXS_LITSTR FOLLOWED BY WORD OF COUNT, THEN ASCII STRING 


LONGWORD OF VALUE 
FOLLOWED BY LONGWORD OF SYMBOL ADDRESS 


.SBTTL DEFINE MACRO LIBRARY FILE OFFSETS 
.MACRO SMAC_MLFDEF 

SNAMDEF 

-PSECT SABSS,ABS 


.=0 4 

MLFSK_RSFNLN = NAMSC_MAXRSS ; Resultant file name Length 
MLFSL_QLINK: ~BLKL : ;QUEVE LINK WORDS 
MLFSL_MCDEF : ~-BLKL :# MACROS DEFINED IN THIS MLB 

3(1,€. IMCALL’S SATISFIED HERE) 

MLFSQ_FNAMDS: .BLKQ 1 i; File name descriptor 
MLFSLLCTINDEX: .BLKL 1 ; Control index 
MLFSX_NAMBLK: BLK NAM$C_BLN ; NAM bloc 
MLFST_FNAM: -BLKB MLFSK_RSFNLN 3 File a string 
MLFSK_BLKSIZ 


-MDELETE SMAC_MLFDEF 
-ENDM SMAC_MLF DEF 


F § 
.SBTTL DEFINE OPERAND DESCRIPTOR FLAG BITS 
44 
; EACH OPCODE SYMBOL BLOCK IS FOLLOWED BY_A SERIES OF WORDS WHICH 
: DESCRIBE THE OPERANDS FOR THE OPCODE. THE FOLLOWING MACRO DEFINES 
; THOSE WORD DESCRIPTORS. 
.MACRO $MAC_OPRDEF 

OPD$S_SIZE z 5 ;SIZE_OF BYTES FIELD 

D$V~SIZE = [POSITION OF BYTES FIELD 
OPD$S ~MODE = :SIZE OF ACCESS MODE FIELD 
OPD$V—~MODE : :POSITION OF ACCESS MODE FIELD 
OPDSA_ Maries = Ta0Ppss -MODE-1@0PD$SV_MODE ; Mask to isolate mode value 
OPDSM_ADOR @<OPD$V_MODE> ADDRESS ACCESS MODE 

DSM~READ = @<OPD$V“MODE> READ ACCESS MODE 
OPDSM-MODIFY = @<OPD$V“MODE> MODIFY ACCESS MODE 
OPDSM_WRITE z @<OPD$V-MODE> WRITE ACCESS MODE 
OPDSM~VIELD = 4a<OPD$V“MODE> :FIELD ACCESS 
OPDSM~ = 5@<OPD$V~MODE>+1;BRANCH BYTE 
OPDSM_B = 6@<OPD$V_MODE>+2; BRANCH WORD 
OPDSM FLOAT = “x8000 SFLOATING POINT (MUST BE SIGN BIT) 
OPD$V~FLOAT = 1 “BIT NUMBER FO T, 
PDSM_D_FLOAT = OPDSM_ FLOAT+*x4000 ;D=F LOATIN 6" 
OPD$V-D-FLOAT = T NUMBER FOR D-FLOATING 
OPDSM"G"FLOAT = OPDSM_ FLOAT#*x2060 >G=FLOATIN 
OPD$V"G-FLOAT = wie FOR. G-FLOATING 
OPDSM"H-FLOAT = OPDSM_ FLoaTo*x1060 sH=FLOATIN 
OPD$V“H-FLOAT = 1 ER FOR H-FLOATING 
OPDSM~NOT_32F = +¥4000+*x2000+*x1000 ;NOT SINGLE PREC. IF THIS SET 


Ck eu 
*@e . 
os 
z 
< 
o 
ra] 

o 


+OPDSM_FLOAT FLOATING 


; QUADWORD 
8+OPD$M_D_FLOAT :DOUBLE FLOATING 
Be OPDSA_ ~G_FLOAT ;G-FLOATING 
;OCTA-WORD 
16+0PDSM -H_FLOAT ;H=FLOATING 


zoqQovce "ecw 


AB=OPD$M_ADDR+B 
AW=OPD$M_ADDR+W 


Mw=OPDSM_MOD IF Y+w 


~ 


Ich 
+ 
IF Y*D had 
1FY+Q 
IF Y+0 | o 
MH=OPDSM_MODIF Y+H 
WB=OPDSM_WRITE+B 
WWw=OPDSM_WRITE+W | 
WL=OPD on TEee | 
WF =OPDSM_WRITE+F | 
WD=OPDSM_WRITE+D 
WOQ=OPDSM_WRITE+O | 
WG=OPDSM_WRITE+G 
=OPDSM_WRITE+0O 
WH=OPDSM_WRITE+H 
=OPDSM_VIELD+B 
VW=OPDSM_VIELD+W 
VL=OPDSM_VIELD+L 
VF =OPDSM_VIELD+F 
VD=OPDSM_VIELD+D 
Q=OPD$M_VIELD+O 
VG=OPDSM_VIELD+G 
VO=OPDSM_VIELD+0 
VH=OPDSM_VIELD+H 
-ENDM S$MAC_OPRDEF 


-SBTTL TERMINAL GRAMMAR SYMBOL DEFINITIONS 


; THIS MACRO DEFINES Sa TERMINAL GRAMMAR SYMBOLS IN THE 
; VAX=11 MACRO GRAMMA 


«MACRO $MAC_GRAMMARDEF 


ERRO1 = Se 
ERRO = ¢: 
ERRO = ° 
ERROG = 4, 
ERRY? = Be 

= . 
ERROF = ¢: 
ERROB = 8. 
ERR = 9. 
GOALSY = 10. 
DEOL = 11. 
1D = i¢° 
MACTXT s 136 
DOPCODE = 14, 
DCOMMA = 13. 
DCOLON = 16. 
DEQ = 17. 
DPC = 18. 
DSQOPN = 19, 
DSQCLS = $0. 
DANGOPN = - 
DANGCLS = $§° 
DOPN = ‘ 
DCLS = 4, 
DPLUS = 5. 
DMINUS = 26. 
OTIMES = e?. 
ODIV = 28. 
DAND = $3" 
DOR = 0. 
DXOR = 31. 
DAT = ¢° 
ODPOUND = ‘ 
DINTEGER = 4, 
DUPA = ae 
DUPB = 6. 
DUPC = Te 
DUPD = 8. 
DUPO = 9. 
DUPF s 40. 
DUPM 2 41. 
DUPX = $¢: 
DBUP = 43. 
OGuUP s 44, 
DluP = 45. 
DLUP = $6- 
OSUP = 47. 
DwUP = 48. 
RRREG = 49. 
DMASK = 9. 
KASCIC = ‘ 
KASCII = ¢: 
KASCIZ = ‘ 
KPACKED = 54, 


KADDRESS 
KBYTE 


SeSe Se Oe Ge Se ee Se ee 


NNN NIA AAPA AAAI 
FUN" OOODNOAUNE WH" OOONOM 


OO 00000000000 000000 
DWNAVULSWN—OOONOUS 
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SMAC_GR 


> a a a ss 2 ts ts 
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SMAC_GRAMMARDEF 
AMMARBEF 
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FLG_DEF INE 


MACRO DEFIN 
FLAGS’. 
ATES TRUE. 
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SFLG_DEF INE 
$FLG_DEF INE 


SFLG_DEFIN 
STLG-DEF INE 
SFLG_DEF IN 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 
SFLG_DEF INE 


IN MACSGL_OPSIZE 


OPF$M_LASTOPR 
OPF $V“LASTOPR 
PF $M~OPTEXP 


OPF 


-MDELETE 


t 
OPF $V~OPTEXP 


MAC 
oP 


DBGOUT 
DLIMSTR 
EXTERR 


L 
TVFLIDX 
MOREARG 


*x2000 
13 

*x1000 
12 


SMAC_CTLFLGDEF, 
-ENDM $MAC_CTLFLGDEF 


L 
;MORE INPUT FILES COMING 
3SET WHEN “A/text/ ey 
; Suppress PC check for .NTYPE 

Set to get Macro argument upper cased 
Input file is being updated 
Operand check eycterace 
First Listing line 
Two column symbol yee Listing 
Two column macro | ps 
Optimized ref. will oVFL if indexed 
Previous argument had ap yee comma 
Output debugger records for abs psectss 
Pass ALL characters in delimited .ASCIx strings 
An external (non-assembly) error has occurred. 
An external (non-assembly) warning has occurred. 
Null character as a parameter 


;LAST OPERAND IN OPCODE 
SEXPRESSION HAS BEEN OPTIMIZED 


SFLG_DEF INE 


Oe: 


6C ¢ 


-MACRO 
CRFSM_DIR 
CRFSV“DIR 
CRF SM"MACROS 
CRF $V"MACROS 
CRE SA-OPCODES 
CRFSV-OPCODES 
CRESM~REGISTERS 
CRFSV"REGISTERS 
CRF SM~SYMBOLS 
CRFSV~SYMBOLS 
CRFSM_DEFAULT 

.ENDM 


-SBTTL CRF_FLG FLAG BITS 
SMAC_CRFLAGDEF 


$MAC_CRFLAGDEF 


;CREF DIRECTIVES 
; CREF MACROS 
4 ;CREF OPCODES 
;CREF REGISTERS 
i6 ; CREF SYMBOLS 


CRF SM_MACROS! CRF $M_SYMBOLS 


.SBTTL ADDRESSING MODE DEFINITIONS 
; THIS MACRO DEFINES THE ADDRESSING MODES. 


ate SMAC_ADRMODDEF 


CRO SYM 
ADMS_"SYM=X 
=x+T 
~ENDM 
CoD LITERAL ;LITERAL MODE 
COD IMMEDIATE STANEDIATE MODE 
COD ABSOLUTE ; ABSOLUTE 
CoD PIC PIC 
COD INDEX 3;ECRI 
COD REGISTE 3R 
CoD RRIND 3(R) 
CoD REGAUTODEC 37 (R) 
COD REGAUTOINC s(R)+ 
coD DF RAUTOINC sa(R)+ 
CoD YTE_DISP 3B*D(R) 
coD DFBYTEDISP 3@B“°D( 
CoD DISP sW*D( 
coD DFWORDDISP saw*D(R) 
coD L DISP ( 
cop DFLONGDISP 3QL*D(R) 
ADM$_MAXMOD = X-1 ;MAX. ALLOWABLE MODE 
-MDELETE SMAC_ADDRMODDEF, COD 


-ENDM  $MAC_ ADRMODDEF 


-SBTTL INTERMEDIATE FILE OPCODE DEFINITIONS 


> 
+ 


PASS 1 OF THE ASSEMBLER GEN nares AN ABTERC DIATE a DE FILE 
WHICH IS PROCESSED BY PASS RODUCE THE OBJECT FILE. 
THE INTERMEDIATE CODE HAS The FOLLOWING FORMAT: 


eeeeererereeeeee 


® LENGTH * LENGTH IN BYTES OF THIS FRAME 


eeeeeeeeerereneee 1 BYTE 

* ACTION * ACTION TO PERFORM (SEE CODES BELOW) 
ReTKeeeeeeeeeeeee 1 BYTE 

* of 

* DATA * DATA ASSOCIATED WITH FRAME 

% ® 


eeeeeeeererereeee 


VARIABLE LENGTH 


THE MACRO wore: DEFINES THE ACTION CODES, AND GENERATES A tg TABLE. 
THIS MACRO SHOULD BE INVOKED WITH NO ARGUMENT TO DEFINE THE 
SYMBOLS "INTS_SYMBOL', AND INVOKED WITH THE ARGUMEN 
DISPATCHTABLE® TO GENERATE THE PASS2 DISPATCH TABLE. 


-MACRO SMAC_INTCODDEF TYPE 
SCOUNT = 0 
-IF DIF <TYPE>,<DISPATCHTABLE> 


-MACRO_ INT 


SCOURT = SCOUNT + 1 
L1FF 
.MACRO INT SYM 


LONG P2$'SYM 
$count=scOunT 


-ENDC 


IN ILG ; ILLEGAL INTERMEDIATE CODE ( 
;***BELOW SYMBOLS ARE ARITHMEITIC 0 OPERATORS***POSITI 

INT ADD ;ADD TOP phe ITEMS ON STACK 

INT AND LOGICAL AN 

INT ASH 7 ASH 


0) 
ON MUST NOT CHANGE 


INT DIV s DIVIDE 

INT MUL MULTIPLY 
INT NES ; NEGATE 

INT NOT oe iar NOT 
INT OR ath OR 
INT SAME UNA RY opus 
al Ho ; SUBTRACT 


INT EXCLUSIZE OR 
rar NSYMOL "ARE aniTHMEY IC GPERATORS®+*POS1T10N MUST NOT CHANGE 
INT AUGPC ;AUGMENT PC 


MAC 
Tab 


-ENDM 


-MDELETE 


GENERATE BRANC 
1 ey OUTPU 


C 6 


me w-4 


- Dam 
be 


OR/.WARN/ .PRINT 
NE 


Dd 
IT 
1A 
IN 
$$ 

E 

G 

CAL) LABEL 


N 
0 
R 
T 


moO —§OMoOCMr- =} mMm~Mnoc rT 


sep ‘weer 
N INDEPENDENT (NOT USED AT PRESENT) 
TE BYTE 
WORD 
IMMEDIATE LONGWORD 
RY POINT 


LONG WORD 

REPEATED BYTE 
REPEATED WORD 
REPEATED LONG 
REPEATED SIGNED BYTE 
38 aided SIGNED WORD 


WORD 
SIGNED BYTE 


;STORE SIGNED WORD 

;PASS 1 WARNING MESSAGE 
;Source-update-merge error 
zInformation message 


SMAC_INTCODDEF, INT 
SMAC_INTCODDEF 


MAC 
VO4 


-SBTTL OBJECT CODE DEFINITIONS 


; THESE SYMBOLS AND FLAG DEFINITIONS ARE SUPPLIMENTAL TO THOSE DEFINED 
; BY SOBJDEF AND ARE USED BY THE PASS 2 ACTION ROUTINES. 


.MACRO $MAC_OBJCODDEF 
SOBJDEF ; DEFINE THE OBJECT CODE. 


: SYMBOL DEFINITION MASK BITS 


SYMSF _WEAK = “0001 : WEAK RESOLUTION 
SYMSF _DEF = *0002 : DEFINITION 

SYMSF _UNI 5 “0004 3 UNIVERSAL 

SYMSF “REL = “0010 ; RELATIVE 
SYMSF-VALIDATE = “0020 ; VALIDATE 


: END OF MODULE RECORD STATUS 


OBJSC_EOM_OK = EOMSC_SUCCESS ; NO ERRORS 
08S “EOM"WRN = EOMSC"WARNING  : WARNINGS 
OBJSC"EOMERR = EOM$SC ERROR : SERIOUS ERRORS 
OBJ$C~EOM"ABORT = EOM$C ABORT : ABORT LINK 

: TEXT, INFORMATION AND RELOCATION 

" TIRSC_STO.LW = TIRSC_STO_L : STORE LONG WORD DATUM 


-MDELETE $MAC_OBJCODDEF 
-ENDM $MAC_OBJCODDEF 


++ 
FUNCTIONAL DESCRIPTION: 


THIS MACRO, SINTOUT_X, IS 
Put AN ACTION INT THE iS 
INT$_CHKL, THE ALIGN SOURC 


MACRO SINTOUT_X AC 
MOVZBL #ACTN,RO 
BSBu MACSINTOUT_X 


ER 


™N 


L 
GUM 


ENTS. 


MAC 


F 6 


»MACRO Siarout LW ACTN,DATA MAC’ 
iNTOUTC2 D Vv0O4 
ROVZ L #ACIN, RO 


if “JON <ACTN>,<INTS_ERR> 
ERR= 

-ENDC 

en h=\ <ACTN>,<INTS_WRN> 


END 
iNT tw CALL \CNT 


DATA,R1 
BSBW MACSINTOUT _WD 


.ENDM ~ | 
MACRO INTOUTC2 D1,D2,D3 | 
-NARG_ CNT 
sf NB D3 
PUSHL 
VENDC 
s|F NB 02 
PUSHL D 
SENDC 
"IF NB D1 
PUSHL D1 | 
“ENDC 
“ ENDM | 
.MACRO INT_LW_CALL C 
"IF EQ ERR 
Sv RACSINTOUT_*C* LW | 
BSBW © MACSINTERR_'C"_Lw 
-ENDC | 
; 
MACRO $INTOUT_wD ACTN, DATA | 
MOV7BL #ACTN,RO | 


~SBTTL PUSH/POP ON VALUE STACK 


oa 
THESE TWO MACROS ARE USED TO PUSH AND POP FROM THE 
PARSER VALUE STACK. 


MACRO $yPUSH LOC 

MOVL LOC -WeMACSAL_VALSTACKLR7) 
VPUSH 

-MACRO $VPOP LOC 

MOVL W*MACSAL_VALSTACKCR7],LOC 

.ENDM  $VPOP 

.SBTTL ADJUST PC 

«MACRO $INC_PC CNT 

IF NT 

INCL W*MACSGL_PC 

ADDL2 CNT,W*MACSGL_PC 

.ENDM  $INC_PC 

-MACRO SDEC_PC CNT 

ECL W°MACS$GL_PC 

SUBL2 CNT,W*MACSGL_PC 


-SBTTL OUTPUT BYTE TO OBJECT CODE 


-MACRO $OBJ_CUTBYT BYT 
IF DIF <BYTS,<RO> 
MOVB = BYT,, RO 


BSBW MACSOUTOBJ 
~-ENDM $08J_OUTBYT 


-MACRO poe OUTBYT_O BYT 
MOVB T,TR10)+ 
- ENDM $083 “OUTBYT 0 


-SBTTL OUTPUT BYTE TO OBJECT CODE, CHECKING FOR BUFFER OVERFLOW 
~MACRO $0B)_CHKBYT BYT 
ait DIF ore <RO> | 


YT,RO 


B MACSCHKBYT 
.ENDM = $08J_CHKBYT 


-SBTTL SIGNAL PASS 2 ERROR 


-MACRO $MAC_P2_ERR MSGNAM 
MOVZWL penats TMSGNAME*XFFFF>,RO 
BSBW MACSPASS_2_ERR 


eee eee ee SSS... 7 - — 


SMAC_P2_ERR 
OUTPUT BYTES TO LISTING FILE 
SMAC List evre N 

<N>, ZRO> 

n,RO 


MACSLIST BYTES 
SMAC_LIST_BYTE 


-SBTTL SET MACRO ERROR CODE 


-MACRO $MAC 3 
MOVZWL |oa<mMal 
-ENDM $MAC_E 


RR CODE 
ga OES *EF TEED AO 


1 6 
.SBTTL SMAC_INSERT_SYM MACRO TO PLACE SYMBOLS IN LINKED LIST 


- 
* 


SMAC_INSERT_SYM == PLACE SYMBOLS IN ONE LINKED LIST 


MACRO TO PLACE SYMBOLS IN ONE LINKED LIST. THIS MACRO IS 
USED WHEN ONLY A SINGLE LINKED LIST INSTEAD OF A HASH TABLE 
IS USED. THE SYMBOL ‘INSYMP’ IS THE LINK POINTER, AND 

1T SHOULD BE ZEROED BEFORE THE LIST IS CREATED. 


-MACRO $MAC_INSERT_SYM NAM,VL1,FLAG=0,HEAD ;NAME, VALUE, FLAG, HEAD 
“ASCIC = /NAM7 
LIF | NOTBLANK <HEAD>, HEAD: : 


~-LONG  VL1 ; VALUE 
«WORD FLAG :FLAGS 
-BYTE 0 3 TOKEN 

; SEGMENT 


“BYTE 0 
“ENDM © $MAC_INSERT_SYM 
-MACRO. $MAC_INSERT_SYX NAM, VAL HEAD ;NAME, VALUE, HEAD 


-ASCIC 
F NOT_BLANK <HEAD>, HEAD:: 
INSYTM=, 


.LONG —" INSYMP 
iNSYMP = INSYTM 

.NCHR —INSYMC, <NAM> 
“BYTE INSYMC#1 

“LONG = VAL 

[ENDM © $MAC_INSERT_SYX 


«LIST 
END 
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